home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sun Solutions 1997 April to September
/
Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso
/
products
/
.wais
/
Solaris_2
/
TieHash.pm
< prev
Wrap
Text File
|
1995-12-11
|
685b
|
43 lines
package TieHash;
use Carp;
sub new {
my $pack = shift;
$pack->TIEHASH(@_);
}
# Grandfather "new"
sub TIEHASH {
my $pack = shift;
if (defined &{"{$pack}::new"}) {
carp "WARNING: calling ${pack}->new since ${pack}->TIEHASH is missing"
if $^W;
$pack->new(@_);
}
else {
croak "$pack doesn't define a TIEHASH method";
}
}
sub EXISTS {
my $pack = ref $_[0];
croak "$pack doesn't define an EXISTS method";
}
sub CLEAR {
my $self = shift;
my $key = $self->FIRSTKEY(@_);
my @keys;
while (defined $key) {
push @keys, $key;
$key = $self->NEXTKEY(@_, $key);
}
foreach $key (@keys) {
$self->DELETE(@_, $key);
}
}
1;